home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8507.arc / PLOTLOAD.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  512b  |  22 lines
  1. 10 CLS 
  2. 20 PRINT "PROGRAM LOADS A SCREEN IMAGE SAVED BY A PREVIOUS PROGRAM" 
  3. 30 PRINT 
  4. 40 PRINT "THIS PROGRAM ASSUMES THAT THE PICTURE IS IN THE B DRIVE" 
  5. 50 PRINT 
  6. 60 PRINT "ENTER THE NAME OF THE PICTURE TO BE LOADED (NO EXTENSIONS) 
  7. 70 INPUT P$ 
  8. 80 CLS 
  9. 90 SCREEN 1 
  10. 100 COLOR 1,7,7 
  11. 110 KEY OFF 
  12. 120 DEF SEG=&HB800 
  13. 130 P1$="B: 
  14. 140 P3$=" 
  15. 150 P2$=P1$+P$+P3$ 
  16. 160 BLOAD P2$,0 
  17. 170 REM PUSH THE F1 KEY TO RETURN TO BASIC 
  18. 180 ON KEY(1) GOSUB 210 
  19. 190 KEY(1) ON 
  20. 200 GOTO 190 
  21. 210 END 
  22.